function report(outfile)
% Funcion:   report
% Proposito:
%
%
global Q_LIMIT;
global BUSY;
global IDLE;

global next_event_type;
global num_custs_delayed;
global time_limit;
global num_events;
global num_in_q;
global server_status;

global area_num_in_q;
global area_server_status;
global mean_arrival_1;
global service_1_params;
global service_2_params;
global time;
global time_arrival;
global time_last_event;
global time_next_event;
global total_of_delays;

fprintf(outfile, '\n\nTiempo medio en cola 1:   %16.3f minutos\n\n', ...
        total_of_delays{1} / num_custs_delayed{1});
fprintf(outfile, '\n\nTiempo medio en cola 2:   %16.3f minutos\n\n', ...
        total_of_delays{2} / num_custs_delayed{2});
fprintf(outfile, 'Longitud media de la cola 1:  %16.3f\n\n', ...
		area_num_in_q{1} / time);
fprintf(outfile, 'Longitud media de la cola 2:  %16.3f\n\n', ...
		area_num_in_q{2} / time);
fprintf(outfile, 'Utilizacion del servidor 1:   %16.3f\n\n', ...
		area_server_status{1} / time);
fprintf(outfile, 'Utilizacion del servidor 2:   %16.3f\n\n', ...
		area_server_status{2} / time);
fprintf(outfile, 'Simulacion finalizada a:    %16.3f minutos', time);
return;